home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1994 March
/
64er_Magazin_94-03_1994_Markt__Technik_de_Side_A.d64
/
kalender prg. 3
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
361b
|
19 lines
10 input "julianisches datum ";jd
20 gosub 2000
30 print "kalenderdatum:";t;".";m;".";j
40 end
2000 rem julianisch -> kalender
2005 j=int((4*jd-1)/146097)
2010 jd=4*jd-1-146097*j
2020 t=int(jd/4)
2030 jd=int((4*t+3)/1461)
2040 t=4*t+3-1461*jd
2050 t=int((t+4)/4)
2060 m=int((5*t-3)/153)
2070 t=5*t-3-153*m
2080 t=int((t+5)/5)
2090 j=100*j+jd
2100 ifm<10thenm=int(m+3):goto2120
2110 m=int(m-9):j=j+1
2120 return